#!/sw/bin/perl

use Net::XMPP;

print "Enter Pass: ";
my $pass = <>;
print "\n";
$connection = new Net::XMPP::Client( debuglevel => 1, debugfile => 'stdout', tls => 1 )
  ->Execute(
            hostname => "talk.google.com",
            username => "ZacharyElliott1",
            password => $pass,
            port => 5222,
            componentname => "gmail.com"
           );

$connection->Disconnect();
